home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / vb017e / vb017ex.frm < prev    next >
Text File  |  1995-09-06  |  4KB  |  137 lines
  1. VERSION 2.00
  2. Begin Form VBEX017 
  3.    Caption         =   "VISUAL BASICS #17 - Moving the Mouse"
  4.    ClientHeight    =   675
  5.    ClientLeft      =   1635
  6.    ClientTop       =   3375
  7.    ClientWidth     =   5100
  8.    Height          =   1080
  9.    Left            =   1575
  10.    LinkMode        =   1  'Source
  11.    LinkTopic       =   "Form1"
  12.    ScaleHeight     =   675
  13.    ScaleWidth      =   5100
  14.    Top             =   3030
  15.    Width           =   5220
  16.    Begin CommandButton Command2 
  17.       Cancel          =   -1  'True
  18.       Caption         =   "Quit"
  19.       Height          =   375
  20.       Left            =   3840
  21.       TabIndex        =   3
  22.       Top             =   120
  23.       Width           =   975
  24.    End
  25.    Begin CommandButton Command1 
  26.       Caption         =   "Fast"
  27.       Default         =   -1  'True
  28.       Height          =   375
  29.       Index           =   2
  30.       Left            =   2640
  31.       TabIndex        =   2
  32.       Top             =   120
  33.       Width           =   975
  34.    End
  35.    Begin CommandButton Command1 
  36.       Caption         =   "Medium"
  37.       Height          =   375
  38.       Index           =   1
  39.       Left            =   1440
  40.       TabIndex        =   1
  41.       Top             =   120
  42.       Width           =   975
  43.    End
  44.    Begin CommandButton Command1 
  45.       Caption         =   "Slow"
  46.       Height          =   375
  47.       Index           =   0
  48.       Left            =   240
  49.       TabIndex        =   0
  50.       Top             =   120
  51.       Width           =   975
  52.    End
  53. End
  54. Sub Command1_Click (Index As Integer)
  55.        
  56.     Speed% = (Index * 10) + 1 ' INDEX SETS THE SPEED OF THE MOUSE.
  57.                               ' the higher the index, the fewer the
  58.                               ' DoEvents() calls, hence the higher the speed.
  59.                               ' We add one to avoid a DIVIDE BY ZERO error.
  60.     
  61.     'RESTORES CURSOR TO FULL SCREEN
  62.     CursorRect.Top = 0
  63.     CursorRect.Left = 0
  64.     CursorRect.right = ScreenWidth
  65.     CursorRect.Bottom = ScreenHeight
  66.     ClipCursor CursorRect
  67.     
  68.     SetCurSorPos 400, 300
  69.  
  70.     For X% = 0 To ScreenWidth ' left to right
  71.         CursorRect.Top = 200
  72.         CursorRect.Left = X%
  73.         CursorRect.right = CursorRect.Left
  74.         CursorRect.Bottom = CursorRect.Top
  75.         ClipCursor CursorRect
  76.         SetCurSorPos 0, 0
  77.         If X% Mod Speed% = 0 Then D% = DoEvents()
  78.     Next X%
  79.         
  80.     For X% = ScreenWidth To 0 Step -1 'Right To Left
  81.         CursorRect.Top = 200
  82.         CursorRect.Left = X%
  83.         CursorRect.right = CursorRect.Left
  84.         CursorRect.Bottom = CursorRect.Top
  85.         ClipCursor CursorRect
  86.         SetCurSorPos 0, 0
  87.         If X% Mod Speed% = 0 Then D% = DoEvents()
  88.     Next X%
  89.     
  90.     For Y% = 0 To ScreenHeight 'top to bottom
  91.         CursorRect.Top = Y%
  92.         CursorRect.Left = 250
  93.         CursorRect.right = CursorRect.Left
  94.         CursorRect.Bottom = CursorRect.Top
  95.         ClipCursor CursorRect
  96.         SetCurSorPos 0, 0
  97.         If X% Mod Speed% = 0 Then D% = DoEvents()
  98.     Next Y%
  99.     
  100.     For Y% = ScreenHeight To 0 Step -1
  101.         CursorRect.Top = Y%
  102.         CursorRect.Left = 250
  103.         CursorRect.right = CursorRect.Left
  104.         CursorRect.Bottom = CursorRect.Top
  105.         ClipCursor CursorRect
  106.         SetCurSorPos 0, 0
  107.         If X% Mod Speed% = 0 Then D% = DoEvents()
  108.     Next Y%
  109.     
  110.     CursorRect.Top = 0
  111.     CursorRect.Left = 0
  112.     CursorRect.right = ScreenWidth
  113.     CursorRect.Bottom = ScreenHeight
  114.     ClipCursor CursorRect
  115.     
  116.     SetCurSorPos ScreenWidth / 2, ScreenHeight / 2
  117. End Sub
  118.  
  119. Sub Command2_Click ()
  120.     CursorRect.Top = 0
  121.     CursorRect.Left = 0
  122.     CursorRect.right = screen.Width / 15
  123.     CursorRect.Bottom = screen.Height / 15
  124.     ClipCursor CursorRect
  125.     End
  126. End Sub
  127.  
  128. Sub Form_Load ()
  129.     ScreenHeight = screen.Height / 15
  130.     ScreenWidth = screen.Width / 15
  131. End Sub
  132.  
  133. Sub Form_MouseUp (Button As Integer, Shift As Integer, X As Single, Y As Single)
  134.     MousePressed = 0
  135. End Sub
  136.  
  137.